home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
dbms_mag
/
9101
/
head1.jan
< prev
next >
Wrap
Text File
|
1990-10-30
|
317b
|
23 lines
@ ... SAY "Enter Customer name -> " ;
GET CustName VALID MultiValid(CustName)
.
.
.
FUNCTION MultiValid
PARAMETER CustName
IF .NOT. ValidCust(CustName)
RETURN .F.
ENDIF
IF .NOT. NoOpenTrans(CustName)
RETURN .F.
ENDIF
IF .NOT NoUnPaid(CustName)
RETURN .F.
ENDIF
RETURN .T.